home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Technotools
/
Technotools (Chestnut CD-ROM)(1993).ISO
/
lang_oth
/
fifth21
/
sqrt.fiv
< prev
next >
Wrap
Text File
|
1986-03-29
|
136b
|
14 lines
CREATE SQRT
EDIT
: sqrt
dup 2. f/
13 0 do
stack ab|abb
f* f+
swap 2. f* f/
loop
swap drop
;
~UP
ABORT